BBS in a Box 5/BBS in a Box -Volume V (BBS in a Box) (April 1992).iso/Files/Hyper/Co-Cz/ComputerUsage.cpt/Computer Usage Tracking/background_3134.txt

Text File | 1988-03-12 | 4.6 KB | 230 lines

-- background: 3134 from stack: in
-- bmap block id: 3549
-- flags: 4000
-- background id: 0
-- name: Sheets
----- HyperTalk script -----
on init
  doMenu "New Card"
  newCard
  go to last card
end init
on newCard
  global programmer
  put programmer into field "Programmer"
  put the long date into field "Long Date"
  put the time into field "Start Time"
end newCard
on closeCard
  put field "Long Date" into convertDate
  convert convertDate to short Date
  put convertDate into field  "Date"
end closecard




-- part 1 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=57 top=33 right=53 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Long Date


-- part 2 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=89 top=66 right=84 bottom=257
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Start Time


-- part 3 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=325 top=66 right=84 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: End Time


-- part 4 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=97 top=100 right=119 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Programmer


-- part 5 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=92 top=131 right=151 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Description


-- part 6 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=70 top=157 right=225 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Planned


-- part 7 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=70 top=228 right=309 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Actual


-- part 8 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=456 top=30 right=50 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Exit
----- HyperTalk script -----
on mouseUp
  doMenu "Quit HyperCard"
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=388 top=29 right=51 bottom=453
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: End Time
----- HyperTalk script -----
on mouseUp
  if field "End Time" is empty then
    put the time into field "End Time"
  end if
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=329 top=29 right=51 bottom=383
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Report
----- HyperTalk script -----
on mouseUp
  doMenu "Print Report..."
end mouseUp



-- part 12 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=423 top=100 right=119 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date


-- part 13 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=439 top=97 right=119 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  push this card
  go to card "Help"
end mouseUp



-- part 14 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=103 top=318 right=341 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: inactive time